home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / tutor / pro13 / names1.bas < prev    next >
Encoding:
BASIC Source File  |  1990-11-13  |  1.3 KB  |  46 lines
  1. 10 'NAMES1.BAS - Read in ten names from a disk file and store in memory
  2. 20 'From the GWBT06 Basic Tutorial Series 11/15/1990
  3. 30 '
  4. 40 'Variables used:
  5. 50 'NAME1$ - NAME10$ to store the names in memory
  6. 60 '
  7. 70 'Start of Main Program:
  8. 80 OPEN "NAMES.TXT" FOR INPUT AS #1
  9. 90 INPUT #1,NAME1$
  10. 100 INPUT #1,NAME2$
  11. 110 INPUT #1,NAME3$
  12. 120 INPUT #1,NAME4$
  13. 130 INPUT #1,NAME5$
  14. 140 INPUT #1,NAME6$
  15. 150 INPUT #1,NAME7$
  16. 160 INPUT #1,NAME8$
  17. 170 INPUT #1,NAME9$
  18. 180 INPUT #1,NAME10$
  19. 190 CLOSE #1
  20. 200 'Names read in, now let's print them to the screen and get a choice...
  21. 210 CLS
  22. 220 PRINT "1 - ";NAME1$
  23. 230 PRINT "2 - ";NAME2$
  24. 240 PRINT "3 - ";NAME3$
  25. 250 PRINT "4 - ";NAME4$
  26. 260 PRINT "5 - ";NAME5$
  27. 270 PRINT "6 - ";NAME6$
  28. 280 PRINT "7 - ";NAME7$
  29. 290 PRINT "8 - ";NAME8$
  30. 300 PRINT "9 - ";NAME9$
  31. 310 PRINT "10- ";NAME10$
  32. 320 INPUT "Enter a number from 1 to 10 for the desired name";NAMENUMBER
  33. 330 PRINT "Your selected name is: ";
  34. 340 IF NAMENUMBER=1 THEN PRINT NAME1$
  35. 350 IF NAMENUMBER=2 THEN PRINT NAME2$
  36. 360 IF NAMENUMBER=3 THEN PRINT NAME3$
  37. 370 IF NAMENUMBER=4 THEN PRINT NAME4$
  38. 380 IF NAMENUMBER=5 THEN PRINT NAME5$
  39. 390 IF NAMENUMBER=6 THEN PRINT NAME6$
  40. 400 IF NAMENUMBER=7 THEN PRINT NAME7$
  41. 410 IF NAMENUMBER=8 THEN PRINT NAME8$
  42. 420 IF NAMENUMBER=9 THEN PRINT NAME9$
  43. 430 IF NAMENUMBER=10 THEN PRINT NAME10$
  44. 440 END
  45. 450 'End of program - NAME1.BAS
  46.